home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #263 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #263 (1993)(Rhein-Sieg-Soft).adf / VK_PRT_3 / VK_PRT.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1993-10-11  |  60KB  |  759 lines
  1. GFA-AMIGAB
  2. USING
  3. MOSEK
  4. VERSION
  5. LOESCH
  6. FUELL
  7. SUFFIX
  8. SUFFIX2
  9. SUFFIX3
  10. SRG22
  11. SHORP0
  12. SHORP2
  13. SHORP1
  14. SHORP6
  15. SHORP5
  16. SHORP4
  17. SHORP3
  18. CHECK
  19. WINTEXT
  20. FEHLER
  21. FREMEM
  22. DATEIGROESSE
  23. VERZNAME
  24. INDNR
  25. VERZNAME
  26. LABEL
  27. FELDNAME
  28. FENAM
  29. FINDEX
  30. DRUCK
  31. FELDIND0
  32. FELDIND1
  33. FELDIND2
  34. X    FELDINDEX
  35. FELDIND
  36. VERZSIZE
  37. VERZBLKS
  38. INDNR0
  39. INDNR1
  40. INDNR2
  41. INDNR
  42. LRAND
  43. SATZLAENGE
  44. SATZNR
  45. RECORD
  46. RICHTUNG
  47. SORT1
  48. SORT2
  49. DUMMY
  50. MAXANZAHLFELDER
  51. RECSEL
  52. FORMAT
  53. DRUCK
  54. FELDERJN
  55. SORTIERT
  56. EINGERICHTET
  57. RELOFFEN
  58. OPENREQ
  59. COUNTER
  60. ANZAHLINDEX
  61. GEFSATZ
  62. SPALTE
  63. GEFUNDEN
  64. SUCHEN
  65. FOUND
  66. SORTF
  67. ABBRUCH
  68. DOPPEL
  69. DUMMY1
  70. DUMMY2
  71. SEARCH
  72. CHECK
  73. GESPEICHERT
  74. WINDOW6
  75. BUTTON
  76. ZEILEN
  77. DUMMY
  78. SOERIERT
  79. SORIERT
  80. AGAIN
  81. EXITPROC
  82. FELDER2
  83. FELDNAMENAENDERN
  84. FENAAE1
  85. FENAAE2
  86. FENAAE3
  87. INDEXF
  88. FELDNAMENSELEKT
  89. EINGABE2
  90. EXITEG
  91. EXITFUNC
  92. NEINL    EXITFUNC2
  93. KARTELESEN
  94. AUSGABE
  95. ENDSUBR
  96. NOCHMAL
  97. SORT.END
  98. DOPEN
  99. INTEXT
  100. LLENDE
  101. WA1    EXITFUNC3
  102. LENDE
  103. VENDE
  104. JAENDE
  105. NEINENDE    EXITFUNC4
  106. DRUCKEN    DAUSGANG1
  107. DRUCKEN70X70    DAUSGANG2
  108. ENDFORM
  109. A4510
  110. EXIT1
  111. EXITSUB
  112. EXITSUB2
  113. EXITSUB3
  114. ENDE.PR4800
  115. ENDS    FEHLEREND
  116. ENDESUBR
  117. GETKEY    EXITFUNC7
  118. GETKE    EXITFUNC6
  119. PWEITER
  120. PR.NEXT
  121. NEXT.NUM
  122. PR4750_ENDE
  123. INWE2
  124. INDEX
  125. ENDE.AENDERN
  126. CTRL.SHIFT.ALT
  127. TITEL
  128. TEXT1
  129. MENAUS
  130. GETDIR
  131. AUSWAHL
  132. EINRICHTEN
  133. LADEN
  134. SCHLIESSEN
  135. DATEILOESCHEN
  136. VERZEICHNIS
  137. EINGABE
  138. DATENAUS
  139. DATSUCH    SORTIEREN
  140. FILTER
  141. DATEI
  142. DFORMAT
  143. LISTE
  144. TAS    MENUESAUS
  145. MENUESAN
  146. TEXT2
  147. TEXT3
  148. DATEINAMEEINGABE
  149. OPENWIN4
  150. GETTEXT
  151. OPENWIN4.BIG
  152. INFO    KOPFZEILE
  153. LOESCHEN    FELDNAMEN
  154. FELDNAMEN2
  155. FELDNAMEN3
  156. WAND2    DATEITEST    REQUESTER
  157. RELEINRICHTEN
  158. OEFFNEN
  159. OEFFNEN2
  160. INPUTROUTINE
  161. SATZSCHREIBEN
  162. CLOSEDATEI
  163. KARTESUCHEN
  164. MODUSSETZEN
  165. SUCHEINGABE
  166. PRUEFEN
  167. KARTELOESCHEN
  168. WEITER2
  169. AENDERN
  170. ETIKETT89X36
  171. ETIKETT70X70
  172. SORTDAT
  173. PAINT4
  174. AUSGANG
  175. LINEFEED
  176. PRINTER
  177. PR200
  178. PR4110
  179. PR4120
  180. PR4125
  181. PR4145
  182. PR4150
  183. PR4115
  184. PR4117
  185. PR4300
  186. PR4350
  187. PR4400
  188. PR4160
  189. PR4500
  190. PR4550
  191. PR4650
  192. PR4700
  193. PR4750
  194. PR4800
  195. PR4450
  196. PR4475
  197. PR4480
  198. PR4490
  199. PR4492
  200. PR4494
  201. PR4540
  202. DFELDER
  203. PR4760
  204. PR4780
  205. PR5000
  206. PR5100
  207. PR5290
  208. PR5200    OPENWIN11
  209. MODUS6
  210. FEHLER
  211. SORTDIR
  212. GETLINE
  213. PINIT
  214. INTEXT
  215. PR4710
  216. PR4720
  217. DRU.PARA.SAVE
  218. DRU.PARA.LOAD
  219. FARBE
  220. INLINE
  221. FARBWAHL
  222. CHOOSE
  223. SORTP
  224. PFIELD
  225. VORGABE
  226. LAENGE
  227. VarioKartei_PRT (rel/indexsequentiell) Version 3.02a
  228. Lothar Berndt, 46446 Emmerich, letzte 
  229. nderung am 16.08.93
  230. Variokartei_PRT, Version 3.02aFF
  231. Variokartei-ScreenF
  232. Variokartei-SchalterF
  233.  Hintergrund mittelgrau
  234.  schwarz
  235.  hellblau
  236.  MaxAnzahl Zeichen Datenfelder
  237.  MaxAnzahl Datens
  238. tze (Karten)
  239.  MaxAnzahl Felder -1 (0-13 = 14 Felder)
  240. AAOOUUSF
  241.  Alle ASCII
  242.  In Sortiervorgabe einsetzen
  243. abcdefghijklmnopqrstuvwxyz!B
  244.  Durch Gro
  245. buchstaben ersetzen
  246.  Umlaut oder Eszet?
  247.  1=Adre
  248. etiketten, 2=Datensatz, 3=Liste
  249.  Recordselektion 3=Alle Datens
  250.  1=80 ZZ, 2=96 ZZ, 3=136 ZZ
  251. .relFF
  252.  (Rel-Datei) Daten
  253. .felFF
  254.  (Seq-Datei) Feldnamen
  255. .indFF
  256.  (Seq-Datei) Werte zum Druck
  257. ,SUCHDATEN nicht gefunden, eine Taste dr
  258. ckenF
  259. ERSTE KARTEF
  260. LETZTE KARTEF
  261. Maximale Anzahl erreichtF
  262. Daten ausgeben mit Index auf F
  263. Variokartei-ScreenF
  264. Das geht nicht!Fe
  265. Sicher?F 
  266. Klick auf PRINT oder EXIT
  267. etiketten     F 
  268. Datensatz          F
  269. Liste              F 
  270. Pica,   80 Zeichen F 
  271. Elite,  96 Zeichen F 
  272. Schmal,136 Zeichen F 
  273. Karte suchen       F 
  274. In Feldern suchen  F 
  275. Alle Karten        F 
  276. Fettdruck an       F 
  277. Doppeldruck an     F 
  278. Fett/Doppel aus    F 
  279. Datei 
  280. ffnen oder einrichtenF
  281. %Datei einrichten, Dateinamen eingebenFr
  282. "Datei einrichten, Felder und IndexF
  283. Daten eingebenF
  284. )Daten unsortiert ausgeben, mit Index auf Fe
  285. 'Daten sortiert ausgeben, mit Index auf F 
  286. Daten suchen, mit Index auf  Fn
  287. Indexfeld sortierenFd
  288. Datei 
  289. ffnenF
  290. Datei von Diskette l
  291. schenF
  292. BeendenFn
  293.  ESC                  (escape)
  294. hrungszeichen    (quotationmarks)
  295. cksetzen           (reset)
  296.  Initialisieren       (initialize)
  297. [0mFF
  298.  Normaler Zeichensatz (normal character set)
  299. [1mFF
  300.  Fettdruck ein        (boldface on)
  301. [22mF
  302.  Fettdruck aus        (boldface off)
  303. [0wFF
  304.  Normale Zeichenbreite(normal pitch)
  305. [2wFF
  306.  Elite ein            (elite on)
  307. [1wFF
  308.  Elite aus            (elite off)
  309. [6wFF
  310.  Breitdruck ein       (enlarged on)
  311. [5wFF
  312.  Breitdruck aus       (enlarged off)
  313. [4wFF
  314.  Schmaldruck ein      (condensed fine on)
  315. [3wFF
  316.  Schmaldruck aus      (condensed fine off)
  317. [2vFF
  318.  Hochstellen ein      (superscript on)
  319. [1vFF
  320.  Hochstellen aus      (superscript off)
  321. [4vFF
  322.  Tiefstellen ein      (subscript on)
  323. [3vFF
  324.  Tiefstellen aus      (subscript off)
  325. nschrift ein     (letter quality on)
  326. nschrift aus     (letter quality off)
  327.  Doppeldruck ein      (doublestrike on)
  328.  Doppeldruck aus      (doublestrike off)
  329. [72tF
  330.  Blattl
  331. nge 72 Zeilen (set form length 72 lines)
  332. [6qFF
  333.  Perforationssprung 6 Z  (perf skip 6 lines)
  334. DateiF
  335. einrichten F
  336. ffnen     F
  337. schlie
  338. en  F
  339. schen    F
  340. VerzeichnisF
  341. importierenF
  342. exportierenF
  343. sortieren  F
  344. drucken   F
  345. Index neu  F
  346. Ende       F
  347.     DatensatzF 
  348. eingebenF
  349. ausgebenF
  350. suchen  F
  351. Farbe   F
  352. Info    F
  353. ProgrammF
  354. Datei   F
  355. Format  F
  356. Etikett F
  357. Liste   F
  358. Tasten  F
  359. Verzeichnis lesenFa
  360. DatenF
  361. V A R I O K A R T E I FF
  362.  Lothar Berndt  1993FF
  363. NDERNF
  364.  ANFANG
  365. ANFANGF
  366. <<<FN
  367. >>>FN
  368.  ENDE
  369. ENDEF
  370. SCHEN
  371. SCHENF
  372.  GEHE NACH KA.NUMMER
  373. GEHE NACH KA.NUMMERF
  374.  EIN ETIKETT 89x36
  375. EIN ETIKETT 89 X 36F
  376.  EIN ETIKETT 70x70
  377. EIN ETIKETT 70 X 70F
  378. NEINF
  379. ABBRUCHF(
  380. ffnenF
  381. AbbruchF
  382. ABBRUCHF
  383. Das geht nicht!. DieFF
  384. Indexdatei ist sort.FF
  385. Zuerst schie
  386. en, dannF
  387. wieder 
  388. ffnen.FF
  389. *Der Bezugspunkt f
  390. r das erste Etikett ist:FF
  391. &Setzen Sie die Etikettoberkante b
  392. ndigFF
  393. mit der Farbbandoberkante.FF
  394. Dateinamen eingeben: F
  395. Daten/
  396. Daten/
  397. Daten/
  398. InfoF
  399. Kartennummer:F
  400. Satznummer:F
  401. Frei BASIC:"7
  402.   Frei System:"7
  403. Karten belegt:"7
  404. Karten frei:"7
  405. Dateiname:";
  406.     FF
  407.     FF
  408. e  "B
  409.  lesen
  410.  schreiben
  411. Daten/
  412. Dateiname: ";
  413. Die Datei existiert bereits!FF
  414. berschreiben?
  415.   NEIN Fb
  416. Dateiname: ";
  417. Anzahl Felder (1 bis 14)FF
  418. Dateiname: ";
  419.     FeldnamenF
  420. Feldl
  421. ngen bis "7
  422.  11 Punkte default
  423.  Feldnamen
  424.  Feldl
  425. Index festlegenF
  426.  Mit der Eingabe einer FeldnummerFF
  427. !legen Sie fest, welches Feld beimF
  428. ffnen einer Datei das IndexfeldFF
  429. "sein soll. Das Indexfeld kann sp
  430. ter problemlos ge
  431. ndert werden.F
  432. Feldnummer eing. 1 - 
  433. Nur Feldnummer 1 bis"7
  434.     Alles OK?
  435.   NEIN F
  436.  Indexfelder aus Reldatei einlesen
  437. Kartennummer:"7
  438. Frei BASIC:"7
  439. Karten belegt:"7
  440. Karten frei:"7
  441. Dateiname:";
  442. Eingaben OK?F
  443.  NEIN
  444.  ABBRUCH
  445. Gehe nach NummerF
  446. Kartennummer eingeben: F
  447. nur Karte "F
  448. 1 bis "7
  449. Karte l
  450. schenFs
  451. Karte l
  452. schen?
  453. ABBRUCH F
  454. Diese Funktion istFF
  455. noch nichtFF
  456. implementiert!FF
  457. Daten suchen im Feld 
  458. Ich suche nach 
  459. , klick auf <<<  <  >  >>>F
  460.  Klick in 1. Fu
  461. zeile
  462. NDERN
  463.  ANFANG
  464.  ENDE
  465.  Karte l
  466. schen nicht implementiert
  467.  Klick in 2. Fu
  468. zeile
  469.  Gehe nach Nr.
  470.  ETIKETT drucken
  471.  ETIKETT drucken
  472. Karte 
  473. ndernF
  474. Karte ge
  475. ndertFF
  476. sortieren?
  477.   NEIN F
  478. Sortiert wird das Feld 
  479. DateinamenFF
  480. BytesF
  481. ckeFF
  482. Verzeichnis lesenFa
  483. DatenF
  484.  scroll ab
  485.  scroll auf
  486. ffnen
  487.  Abbruch
  488. Daten/
  489. Daten/
  490. Daten/
  491.  LIMITW #wnr|,640,54+(m|+1)*8,640,165
  492. Schlie
  493. e DateiF
  494. Dateinamen eingeben: F
  495. Daten/
  496. Daten/
  497. Daten/
  498. Datei:FF
  499.  ist gel
  500. scht.FF
  501. DatenF
  502. Die linke Maustaste dr
  503. ckenF
  504. Daten importierenFn
  505. &Als Feldtrenner brauche ich dezimal 10FF
  506. &Als Satztrenner brauche ich dezimal 10FF
  507. Pfad und Dateinamen "
  508. Bearbeite Satznummer: FF
  509. ####!7
  510. Verzeichnis lesenF
  511. DatenF
  512. Die Datei `"
  513. ' ist importiert.FF
  514. Linke Maustaste dr
  515. ckenF"
  516. Daten exportierenF
  517. Feldtrenner: F
  518. Satztrenner: F
  519. Pfad und Dateiname "
  520. Bearbeite Satznummer: FF
  521. ####!7
  522. Die Datei '"?
  523. ' ist in die Datei '"
  524. ' exportiert.F
  525. Linke Maustaste dr
  526. ckenFe
  527. Index wechselnF
  528. Feldnummer eing. 1 - 
  529. nur Feldnummer 1 bis "7
  530. Index einlesenF
  531. Sicher?    
  532.   NEIN F
  533. Datens
  534. tze:"7
  535.  Dateiname:";
  536. PAR:F
  537. @ "FF
  538.  Eine Leerzeile f
  539. r PerfSprung
  540. PRT:F
  541.  Normale Zeichenbreite, Zeichensatz
  542.  "F"     LQ-Modus
  543.  72 Zeilen pro Blatt
  544.   6 Zeilen frei, oberer u. unterer Rand je 3 Z
  545.  Elite ein ,12 Zeichen Zoll
  546.  Schmal ein ,17 Zeichen Zoll
  547.  Fett ein, Doppel aus
  548.  Doppel ein, Fett aus
  549. Ein Etikett 89 X 36 mm druckenF
  550. Drucker OK?
  551. ABBRUCH Fn
  552. Fuer Lochrand-Etiketten Format 89 * 36,1 mm (fuer 5.25 Zoll Disk)
  553. Drucke Etikett "7
  554.  Ausgabekanal f
  555. r Drucker 
  556. ffnen
  557.  Reset Drucker
  558.  LQ-Modus
  559.  Daten
  560.  Return line feed
  561.  Daten in Pica max. 32 Zeichen Zeile
  562.  Return line feed
  563.  Normale Zeichenbreite
  564.  Schmaldruck ein
  565.  Daten max. 55 Zeichen Zeile
  566.  Reset Drucker
  567. Ein Etikett 70 X 70 mm druckenF
  568. Drucker OK?
  569. ABBRUCH Fn
  570. Drucke Etikett "7
  571.  Ausgabekanal f
  572. r Drucker 
  573. ffnen
  574.  Reset Drucker
  575.  LQ-Modus ein
  576.  Schmaldruck ein
  577. WRITE DATA --->F
  578.  2. Zeile R
  579. ckseite
  580. READ ONLY --->FF
  581.  1. Zeile R
  582. ckseite
  583.  Reset Drucker
  584.  LQ-Modus ein
  585.  Elite ein
  586.  Tiefstellen ein
  587.  Daten auf Schmalseite Disk
  588.  Return line feed
  589.  Reset Drucker
  590.  LQ-Modus ein
  591.  Breitdruck ein
  592.  Daten
  593.  Breitdruck aus
  594.  RETURN line feed
  595.  Elite ein
  596.  Daten max. 30 Zeichen Zeile
  597.  Return line feed
  598.  Normale Zeichenbreite
  599.  Schmaldruck ein
  600.  Daten max. 44 Zeichen Zeile
  601.  Reset Drucker
  602. FilterF
  603. JOBSFF
  604. RECORD SELECTIONFF
  605. PRINTF
  606. SAVEFF
  607. ZEICHEN JEFF
  608. ZEILEF
  609. FELDERFF
  610. PARAM.FF
  611. LOADFF
  612. PARAM.FF
  613. ZEICHEN/ZEILEF
  614. DRUCKST
  615. LINKER RANDF
  616. PRINTF
  617. EXITFF
  618. ###!7
  619. MARKFF
  620.  JOBS
  621.  Record select
  622.  ZEICHEN/ZEILE
  623.  DRUCKST
  624.  PRINT FELDER
  625.  Mark
  626.  SAVE PARAM.
  627.  LOAD PARAM.
  628.  PRINT
  629.  EXIT
  630.  Karte(n) suchen
  631.  Kartennummer(n), nur RETURN=ENDEFF
  632. Nur 1 bis "7
  633.  unteren Fensterinhalt l
  634. schen
  635.  In Feldern suchen
  636. e  FF
  637. Klick auf PRINT oder EXITF
  638. SUCHDATEN: "
  639.  Alle Karten
  640.  Selektion der Felder
  641.    "FF
  642. ###!7
  643.  Ausgabe auf Drucker
  644. #WIEVIELE KOPIEN ? (NUR RETURN=EXIT)F
  645.  Leerzeile
  646.  Anrede
  647.  Leerzeile
  648.  Position bestimmen
  649. @ "Fs
  650.  Vorname
  651.  Nachname
  652.  Stra
  653.  Leerzeile
  654.  PLZ und Ort
  655. farbwahl
  656. Das ProgrammFF
  657. !Von Lothar Berndt, 46446 EmmerichF
  658. 7Erstellt im Jahre 1989 - 1993, letzte 
  659. nderung 16.08.93F
  660. -Diese Version a ben
  661. tigt einen DruckertreiberF
  662. /im Verzn. 'devs/printers' auf der StartdisketteF
  663.  Datens
  664. tze pro DateiF
  665. %1 bis 14 Felder pro Datensatz (Karte)F
  666. Feldl
  667. nge 1 bis 62 Zeichen"F
  668. DateiF
  669. Aktuelle Datei..............:";
  670. Dateigr
  671. e in Bytes.........:"7
  672. Feie Bytes Basic............:"7
  673. Anzahl Datens
  674. tze (Karten)..:"7
  675. Anzahl Felder...............:"7
  676. Datensatzl
  677. nge..............:"7
  678. FormatFF
  679. Feldname: "
  680.  Index"
  681. nge: "7
  682. Feldname: "
  683.       "
  684. nge: "7
  685. 'Bezugspunkt f
  686. r Etikett 89X36 und 70X70F
  687. Liste druckenF
  688. ' Der Bezugspunkt des Endlospapiers ist:F
  689. = Setzen  Sie  die Papieroberkante b
  690. ndig mit der Metall- oderF
  691. = Kunststoffnase des Druckkopfes. Der Listendruck erfolgt for-F
  692. = matiert, das hei
  693. t, da
  694.  die  Perforation  
  695. bersprungen wird.F
  696. = Die erste Formatanweisung  mu
  697.  vom  Programm  aus  erfolgen.F
  698. = Variokartei  f
  699. hrt  einen  Zeilenvorschub aus, in VerbindungF
  700. = mit dem Bezugspunkt sind das insgesammt 3 Leerzeilen auf derF
  701. = ersten Seite.  Die  weitere  Formatierung 
  702. bernimmt dann derF
  703. = Drucker, der dann 66 Zeilen druckt, dann das Papier 6 ZeilenF
  704. ber die Perforation transportiert.FF
  705.  Das Endergebnis ist folgendes:F
  706. = 3  Zeilen frei,  66 Zeilen Daten, 3 Zeilen frei.  Sie k
  707. nnenF
  708. = dann  den rechten Lochrand abrei
  709. en, die Bl
  710. tter trennen undF
  711. = dann  mit  einem  Klammerhefter  den linken Lochrand heften.F
  712. = Das  Endergebnis  ist  eine  Art Heft, zu dem Sie Ihre ListeF
  713. = gemacht  haben. Siehe  auch  VK.dok  und die Datei ProbPerf."FF
  714. -Tastaturbelegung beim eingeben/suchen/
  715. ndern F
  716. 8 RETURN       = ein Feld tiefer, leere Felder werden alsFF
  717. 2                Leerfelder gesichert ( chr$(32) )!FF
  718. ' CURSORTASTEN = ab, auf, rechts, links.F
  719. 4 DEL          = l
  720. scht ein Zeichen unter dem Cursor,FF
  721. 7                nachfolgende Zeichen r
  722. cken nach links.F
  723. 4 BACKSPACE    = l
  724. scht ein Zeichen links vom Cursor,FF
  725. 7                nachfolgende Zeichen r
  726. cken nach links.F
  727. = F10          = l
  728. scht das aktuelle Feld (wo der Cursor ist).F
  729. = ESC          = erzwingt den Abbruch der Eingabe im aktuellenF
  730. :                Feld. Da die Felder vorher mit LeerzeichenFF
  731. 7                gef
  732. llt wurden, werden leere Felder alsF
  733. 6                Leerfelder gesichert (wie bei RETURN)!FF
  734. ? SPACE        = schiebt den Text rechts vom Cursor nach rechts.F
  735. ? LINKE MAUST. = positioniert den Cursor wo d. Mauszeiger steht.F
  736. ! Es ist ein Fehler aufgetreten! |F
  737.  OK | OK | OK FF
  738. +Fataler Fehler, Programm wird neu gestartetF
  739.     RequesterF
  740.  Nein
  741. Anzahl Zeilen-1,Spalte,Zeile,Cursorfarbe,Hintergrundfarbe,Laenge(),dat$()
  742.  RETURN
  743.  BACKSPACE
  744.  F10, aktuelle Zeile l
  745. schen
  746. >  F 
  747.  rechts
  748.  links
  749. '!&FF
  750. Spalte,Zeile,AnzahlZeichen,Cursorfarbe,Hintergrundfarbe,Text$
  751.  Klick in OK
  752.  Klick in ABBR.
  753.  BACKSPACE
  754. '(hF#
  755.  F10, aktuelle Zeile l
  756. schen
  757.  rechts
  758.  links
  759.